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تقد للسلسلة 
أحببت أن أضع بعض المواضيع التي أجعها من الشبكة العنكبوتية و من مستندات ال5 1S‏ تحت تصرف 
الإخوة الأعضاءء و أنظمها في سلسلة مقالات باللغة العربية تعاج مواضيع منوعة في مايخص إطار العمل 
Microsoft .Net‏ بطريقة محختصرة و مع أمثلة وافية وقد كان في اختياري للمواضيع نط و منهجية بحيث 
أعا ج المواضيع حسب المستويات مراعاة للإخوة المبتدئين و الحترفين على حد السواءء كما و نظمت المواضيع على 
مجموعة من الأقسام ستكون مخصصة: للمواضيع المتقدمة (هندسة وهيكلة التطبيقات)» الحيل و الأفكار البرمجية» 
التصميم» تحسين الأداءء والنظرات الخاطفة على بعض الفئات الجحديدة أو الجهولةء وغيرها. كما أا ستكون موجهة 
ل 3 مستویات [. للمبتدئین» [1. للمتقدمين» [1[1. للمحترفن. 
أعلم أن هذا العمل ليس بالسهل أو الذي يمكن انجازه في وقت قصيرء لكن سأحاول إن شاء الله تعالى أن أفي 
بوعدي و أضع مقالات بوتيرة منتظمة و أرجو من الإخوة الأعضاء أن يساعدون بانجاز هذا العمل ليعم الحير 
فالرجاء كل من يستطيع المساعدة أن يكتب في هذه السلسلة وأن يتقيد بالتصميم والدسق الذي ترونه حتقى يكون 
العمل متقن و جيل و يعطي معة جيدة عن المنتدى و أعضائه و على الله تعالى الثواب و الأجر» وحتى يبقى للعرب 
مكان تحت الشمس. 
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تحسين سرعة الأداء بالاستعانة بالفئة Stop» a‏ 


1. تمهيد 
2. لمحة عن الفئة الجديدة إtcخStopwa‏ 
أ- طريقة عمل الفئة 
ب- الطرق (Methods)‏ 
ت- الخصائص (5ع1٤pe۲ (P٥‏ 
3. احتساب وقت تنفيذ مقطع من كود 
4. بعض الأمثلة التطبيقية 
أ- لمبرمجي Visual Basic .NET J|‏ 
4... المتال الأول: مقارنة بين سرعة تنفيذ alllتيj For‏ و For Each‏ 
2..4. المثال الثانى: مقارنة بين سرعة استعمال الفئتين و٣ذإخS‏ 
و StringBuilder‏ 
ب- لمبرمجي ال #€ 1ھuئ¡۷‏ 
4.ب.1. المثال الأول: مقارنة بين سرعة تنفيذ الحلقتين for‏ و foreach‏ 
4.ب.2. المثال الثانى: مقارنة بين سرعة استعمال الفئتين و,1إخ±S؟‏ 
و StringBuilder‏ 
5 ملا عن الفبزمخين غير الو اگين لتكت ر وجا ا NÊT‏ ۶!!! 
6. خاتمة 
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1. تمهيد 


لا شك أن هدف أي مبرمج هو بلوغ درجة الاحتراف و بناء تطبيقات قوية و متينة من جميع النواحي› 
فالاعتناء بمظهر واجهة البرنامج و جعلها جذابة و سهلة الاستعمال للمستخدم أمر حيوي كما أن ملاحقة 
الأخطاء البرمجية (ع«أععسطاء0) و جعل التطبيق متين و خالي تماما من الأخطاء لا يقل أهمية عن الأولء 
لكن هل فكرت بالجانب الخاص بمصادر النظام و خاصة سرعة التنفيد؟ 

إن من بين الأمور الأساسية التي تجعل البرنامج ينال رضا المستعمل هو سرعة التنفيذء لذلك عليك الحرص 
على ذلك باختيار أسرع طرق التنفيذ من بين الخيارات المتوفرة لمعالجة مقطع من الكود. لكن كيف السبيل إلى 
المقارنة بين سرعات التنفيذ لمختلف الحلول المتوفرة؟ 

هذا السؤال سنجيب عليه إن شاء الله بين أسطر هذا المقال. لذلك شدوا الأحزمة سننطلق... 


2. لمحة عن الفئة الجديدةö Stopwatch‏ 


في سعيها الدءوب لتحسين و تطوير بيئة Framework .NET 2.0 JI Microsoft lil gعضت «.NET Jl‏ 
الذي يحتوي في مجمله على تحسينات و فئات جديدة جعلت منه غنيا مقارنة بسابقيه بحيث أصبح المبرمج يمتلك 
مجمو عة جديدة كليا من الفئات و الأدوات التي جعلت من البرمجة متعة حفيقية. 

من بين التحسينات التي أضافتھا Microso۴‏ على اJ Framework .Net‏ مجموعة جديدة من الفقفات 
و من بينها الفنُة 1ء atسمەخك‏ التابعة لمجاJ‏ اlأlauءs system. Diagnostics‏ 
رغم بساطتها إلا أنها ذات فائدة كبيرة للمبرمج فبواسطتها يمكنك احتساب وقت تنفيذ مقطع من الشيفرة بطريقة 
متناهية الدقة (دقة تصل إلى 10 جزء من الثانية) و من خلال 3 أسطر فقط! 


2.أ. طريقة عمل الفئة 
الفئة تمتلك مجموعة من الخصائص و الطرق تمكتنا من حساب وقت الثنفيذ وذلك بإتباع النهج التالي: 
1 تهيئة الفئة باستعمال الطريقة () R٥‏ . 
2 إعطاء الأمر ببدء احتساب الوقت باستعمال الطريقة () ٤إءهخ5‏ قبل بداية مقطع الكود المعني مباشرة. 
3 إعطاء الأمر بتوقيف عملية الاحتساب باستعمال الطريقة () ه٤5‏ بعد مقطع الكود. 
4 معرفة الوقت المستتفذ من الخاصية sedص£1ap .ElapsedTicks gyi ElapsedMi1liseconds yİ‏ 


2.ب. الطرق(5ل0 (Meth‏ 


الطريقة الشرح 


EE) Ca SE J E GO RG E Reset ()‏ 
القيمة 0 )أو (ElapsedXxX ãيصlëll ( Nothing —null-‏ . 
Start ()‏ إعطاء الأمر ببداية الاحتساب. فى حالة عدم تهيئة نسخة الفئة من قبل فان عملية 


الاحتساب ستكون تراكمية أي أن القيمة الجديدة ستضاف إلى القيمة السابقة المخزنة 
في الخاصية ×××d4ء٥ءsم£1ap.‏ 

SLOP ()‏ توقيف عملية الاحتساب و جعل الخاصية 15۸1٣٣1٣3‏ تحمل القيمة ٥ء1ا۴a.‏ 
الجدول 1.2: بعض طرق الفةَ اخ a2سمStop.‏ 

ملاحظة: ×××4ءءمه1 تشير إلى الخصائص ال 4ءءمة21 أو ed11c)sءsم1ap×‏ أو 
ElapsedMilliseconds‏ 
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2.ت. الخصائص (5ع )8۲ م۴۲0) و في عجالة 


الخاصية النوع 
Elapsed‏ 

Int 64 ElapsedTicks 
Int64 | ElapsedMilliseconds 
IsRunning 


System. TimeSpan 


System. 


System. 


System. Boolean 


الجدول 2.2: بعض خصائص الفئة Stopwatch‏ 


3. احتساب وقت تنفیذ مقطع من كود 


سنستعمل مثال تطبيقي لشرح كيفية احتساب الوقت المستنفذ في تنفيد ذ مقطع من کود. ° و لئ سبيل المتال لا 
الحصر سنقوم بتعريف دالة تقوم بالإضافة المتكررة لحرف معین إلى متغیر نوع Syste". 5٤٣113‏ ن 
مرة و نحتسب الوقت اللازم أفعل ذلك. 


3 دند مال الاسهاء 


كما قلناء الفة «a1‏ مه5 تابعة لمجاJ‏ اlأlauء system. Diagnostics‏ 


اع 

الوقت الكلي المحتسب بين الأمرين S4۲۲0‏ و S٥0‏ و 
ذلك على هيئة نسخة من الفة anمS؟ءeص1".‏ 

الوقت الكي المحتسب بال كذ" (100 نانو ثانيية (10 ” 
ثانية) = 1 Tek‏ ) 

قيمة الوقت بالملى ثانية المحتسب من طرف النسخة 
الحالية. ٠‏ 

هل عملية الاحتساب قيد التشغيل أم لا. 05 


TMpBOEES System. DiagnosSELcES "YE NET J JF 


using System.Diagnostics; //C# J| برجي‎ 


3ب تقرف الذالة التى تقوم بكملة الإضاقة المستكررة: 


الشيفرة 


Private Function Concat (ByRef Target As String, ByVal newChar As 
ByVal nb As Integer) As Boolean 'VB .NET Jl 


ا 


If nb <= 0 Then 
Return False 


Else 
Dim i As Integer 

FOE l1 = 1 TO BB 
Target &= newChar 
Next 

Return True 

IO EE 

ERG FURCELOR 


/ 7© لوجي ل‎ 
private bool Concat (ref string Target,char newChar,int nb) 


{ 


if (nb <= 0) return false; 


else 


{ 


FGE (It 1 = O; 1 < nb; FEF) 
Target += newChar; 


3 تعريف دالة الإضافة التراكمية. 


return true; 
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3.ت. استعمال الفئة طءغمسمه٤ء‏ لحساب سرعة تنفيذ تكديس 50000 
حرف في متغير سلسلة حروف. 


'78 NET مرجي إل‎ 
PEIVaEe" SUB BUEEONLCLTEKR (BYVaL Sender AS UIEtE; BYVEL © A8 
System.EventArgs) Handles Button1.Click 
' Sغ66۷¥8 إاقشاء نسخة قن الفنة 5غ‎ 
Dim mySWatch As New Stopwatch () 
06 Dit mMySIEEFTeStE A5 SEEING 
' بدا فملة. السات‎ 
mySWatch. Start () 
"` المقطع الذي ترف حسات  وقة تت قاق‎ 
Concat (myStrTest, "A"c, 50000) 
' توقيف عملية الحساب‎ 
mySWatch. Stop () 
" قار الورك اجست رق . اة خجحكدة اة 50000 ,جرف إل االمتجن‎ 
Labell.Text = mySWatch.ElapsedMilliseconds.ToString & _ 
" "ميلي ثانية‎ 
Ena SUB 


C۴‏ ال لر ے7 


pfivate oid buttonl Click(6Bject sender, System.EventArgs €) 


{ 


Stopwatch mySWatch = new Stopwatch (); 

SEELNG myStrTest; 

خا فة :السات 

mySWatch.Start (); 

ةة رقة حساتب تربك الدى. المقطخ // 

Concat (ref myStrTest, 'A', 50000); 

توقينف عملية ‏ السات / 

mySWatch. Stop (); 

إظهاز النوقة. اللمستتنة لاضافة 50000 حرف إل المتعر // 

Labell.Text = mySWatch.ElapsedMilliseconds.ToStrFİ1NG() + " qalan 


الشيفرة 2.3: احتساب الوقت المستغرق لتكديس 50000 حرف. 
4. بعض الأمثلة التطبيقية 


سأعرض في هذه الفقرة مثالين عن بعض الحالات الشهيرة لاستعمال الفئة في مقارنة وقت تتفيذ مقطع يمكن 
كتابته بشكلين مختلفين« الأول في مقارنة بين الحلقتين التکرlرڍتjı for) For Each sg For‏ 
و 66 فى ال (C#‏ أما الثاني فسأعرض فيه مقارنة بين الفئتقيjù stringBui1der gy String‏ 
و بلغتي .Visual C# gy Visual Basic .NET JI‏ 


ملاحظات: 

- كما تعلمون» فإن التنفيذ الأول للأمتلة (استدعاء الطرق لأول مرة من طرف المترجم) سيكون بطيئًا جدا 
لأن كود الS11×‏ ستعاد ترجمته بواسطة المترجم [1١‏ إلى لغة الآلة. لذلك بعد التنفيذ الثاني يمكننا حساب 
الوقت الحقيقى فى الأمثلة. 

- النتائج المتحصل عليها بعد التنفيذ تختلف من جهاز إلى آخر حسب مواصفاته فالنتائج المتحصل عليها 
عندي ليست بالضرورة ما ستتحصل عليه بعد تنفيذ الأمتلة (الاختلاف يكون في الأرقام و ليس في الحل 
الأحسن). 

- الفة 11de‏ 98uہstr1‏ تابعة لمجال الأسماء System. 1ext‏ 
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Visual Basic .NET J| 4.أ. لمبرمجي‎ 


1..4. المثال الأول: مقارنة بين سرعة تنفيذ الحلقتين ۴٥۲‏ و ۴2 ۴0٣‏ 


Private Süb btnSWatchTest CLlick(ByVal sender As System.Object, ByVal € A8 
System.EventArgs) Handles btnSWatchTest.Click 
Dim mySWatch As New Stopwatch () 
Dim myArrayList As New Collections.ArrayList () 


Dim i As Integer 
07 ا ا‎ 
EOF 1 = 1 To 5000 
myArrayList.Add (i) 
Next 


خساب. الوقة . اللازم التتفية. افطع ماستع فال "الخلة . التكر ارحة. اة 6e‏ ' 
mySWatch.Start ()‏ 

For Each i In myArrayList 

1stItems. Items .Add (i) 


Next 

mySWatch. Stop () 

ذقة السات 10" 

txtForEach.Text = mySWatch.ElapsedTicks.ToString () 


خفاايه اوقت اللازم لختقيك المقطع ا ستغ# هال االحجلقة االيتكر "اة FOE‏ 
lIstItems.Items.Clear ()‏ 
mySWatch. Reset ()‏ 


mySWatch.Start () 
For i = 0 To myArrayList.Count = 1 
1stItems.Items.Add (myArrayList (i) ) 
Next 
mySWatch. Stop () 

دق اخسات: 10 ' 

txtFor.Text = mySWatch.ElapsedTicks.ToString () 
End Sub 


الشيفرة 1.4: مقارنة وقت التنفيذ المستغرق باستعمال حلقتين مختلفتين مع القوائم. 
Stopwatch ( .NET 2.0 ıJ la | 8K]‏ { 


ابذا 


حساب الوقت اللازم لاضافة 5000 عنص 
إلى القائة 


e emeaass ans النتائج إبال عا‎ 


For Each Far 


12417856 11716848 


الفرق واضح, لذلك يبستحسن استعمال الحلقة ۴۵۲ إذا أمكن 


الصورة 4.: منظر النتائج و يبدو أن الحلقة إه۴ أحسن من نظيرتها ٣٥۲ ach‏ مع القوائم. 
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4... المثال الثاني: مقارنة بين الخليتين stringBui1lder g String‏ 


Private Sub btnSWatchTest Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSWatchTest.Click 
Dim strTest As String 
Dim mySWatch As New Stopwatch () 
'Sy5غê استعمالن الفئة الغاوية 1غ5‎ 
mySWatch.Start () 
CALL CONCACSTCE(SEELTESTE, "a" ê; 50000) 
mySWatch. Stop () 
NO دقة الجحساب‎ 
08 txtStr.Text = mySWatch.ElapsedTicks.ToString () 


'System.Text.StringBuilder ةأiغlاl‎ Jlمعتسا‎ 

mySWatch. Reset () 

mySWatch. Start () 

Call ConcatStrBuilder (strTest, "a"c, 50000) 

mySWatch. Stop () 

وة اا 0 

txtStrBuilder.Text = mySWatch.ElapsedTicks.ToString () 
End Sub 
Private Function ConcatStr (ByRef Target As String, ByVal newChar As Char, 
ByVal nb As Integer) As Boolean 

If nb <= 0 Then 

Return False 


Else 
Dim i As Integer 
FOR 1 = 1 T5 NB 
Target &= newChar 
NEXE 
REEUER TES 
ERT AT 
ERQ. FUNG TELOT 
Private Function ConcatStrBuilder (ByRef Target As String, ByVal newChar As 
Char, ByVal nb As Integer) As Boolean 
If nb <= 0 Then 
Return False 
Else 
Dim strBuilder As New System.Text.StringBuilder (nb. nb) 
strBuilder.Append (newChar, nb) 
Target = strBuilder.ToString () 
FEEUER TEUe 
ETC TF 
Füuncttlon 


الشيفرة 2.4: مقارنة وقت التنفيذ المستغرق لتكديس 50000 حرف باستعمال الفئتين. 


( Stopwatch ( .NET 2.0 اة‎ ڊlaختسا‎ | 


1 
حساب الوقت اللازم لأغافة 50000 حرف 

ا إلى متغیر نوع وا5 
الصورة 4: منظر النتائج 
و تظهر القوة الرهيية للففة النتائج زبال أ٣‏ ا 


StringBuilder 
String StringBuiildle 


3100358234 1001443 


الغرق واضح, لذلك يستجسن استعمال الخلية ١08اااطو‏ آ٣5‏ إذا أمكن 
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4.ب. لمبرمجي ال C#‏ اھuو۷i‏ 


4.ب.1. المتثال الأول: مقارنة بين سرعة تنفيذ الحلقتين إهf‏ و foreach‏ 


pfFivatë void btnSsWatchTest Click (object sender, System.EventArgs €) 
{ 
Stopwatch mySWatch = new Stopwatch (); 
Collections.ArrayList myArrayList = new Collections.ArrayList (); 
فلا القاتمة//‎ 
09 AME =1, 
for (; 1 <= 5000; FF) 
myArrayList.Add (i); 


//£6 £6368 خمسايه الوقة اللازة. لتنشيجة المقظغ ياستعمال الحلقة التكرز ارزنة‎ 
mySWatch.Start (); 
foreach (int i in myArrayList) 
1IstItems.Items.Add (i); 
MyYSWaltch.s.SEOP() 7 


10 ااك‎ 
txtForEach.Text = mySWatch.ElapsedTicks.ToString (); 


خفنات لوقك اللازم التشية القظطع خاستعهال. اشحكقة التكراردحة ٤ع‏ // 
1IstlItems.Items.Clear ();‏ 
mySWatch. Reset ();‏ 


mySWatch.Start (); 

for (i = 0; i <= myArrayList.Count - 1;i++) 
1IstItems.Items.Add (myArrayList (1)); 

mySWatch. Stop (); 


TIE 
LxtLFor. Tex HLlapsedTicks.ToString (); 


الشيفرة 3.4: إعادة المثال 4.أ.1. بلغة ال #© . 
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4.ب.2. المتال الثاني: مقارنة بين الخليتين stringBui1der g String‏ 


private void btnSWatchTest_ Click (object sender, System.EventArgs e) 
{ 

SEEIN STETeSE 7 

Stopwatch mySWatch =new Stopwatch (); 


/{SyStêM:SEEĞAĞ ةûنفداعلا الفثة‎ ٠ الستعهال‎ 
mySWatch.Start (); 
CORHCAESEE(SEETESE, TA", SOO000) 

10 mySWatch.Stop (); 


7 10 تة شات‎ 
txtStr.Text = mySWatch.ElapsedTicks.ToString (); 


mySWatch. Reset (); 


//System.Text.StringBuilder ةiفلlاl‎ Jاlمعتسا‎ 
mySWatch.Start (); 
CORCAESEEBULLIEE(SEETESEy, "a", S0000) 
mySWatch. Stop (); 


7 10 ات‎ 
txtStrBuilder.Text = mySWatch.ElapsedTicks.ToString(); 


} 
private bool ConcatStr (ref string Target ,char newChar , int nb ) 
{ 
if (nb<=0) 
return false; 
else 
{ 
EOE. (INE i = OF 1 < AB} LFF) 
Target += newChar; 
FECUED EEO; 
} 
private bool ConcatStrBuilder (ref string Target ,char newChar , int nb ) 
{ 
if (nb <=0 ) 
return false; 
else 


{ 


System.Text.StringBuilder strBuilder 
System.Text.StringBuilder (nb,nb); 

strBuilder.Append (newChar, nb); 

Target = strBuilder.ToString (); 

return true; 


الشيفرة 3.4: إعادة المتال 4.أ.2. بلغة ال ٥#‏ . 
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5 مادا عن المترمخين غير المؤاكين لتكولهخاالدوت تت ١1١‏ 


يمكن الاستعانة بدوال ال ۸۴1 الخاصة بالوينداوز بالنسبة لمبرمجی Visual Basic Jl‏ ,و Visual Jl‏ 
٠ a OE‏ 

و على سبيل المتال لا الحصر» يمكن استخدام الدالة ٤”رںهz٤»ء‏ :٣٤ء‏ التي تعطينا الوقت المستغرق ب 
ال 1s‏ (100 نانوثانية = 1 )1 ٣آ)‏ منذ بداية ١10ءءم؟‏ الوينداوز. 


"56:0 برجي اال‎ 
11 Private Declare Function GetTickCount Lib "kernel32" () As Long 


*/ 
لمبرججي الى C++‏ 


الك الة مغرفة في wWindÖOWS.: Dh :56aQdêۂ JÎ‏ 
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#include "windows.h" 


و لاستعمالهاء يجب العمل كالتالي: 
1 تخزين القيمة المرجعة من الدالة عند البداية في متغير من نوع ع١ه]1.‏ 

2 تخزين القيمة المرجعة من الدالة عند النهاية في متغير من نوع ع١10.‏ 

3 حساب الفرق بين قيمتي المتغيرين و الذي يمثل الوقت المستغرق لتنفيذ المقطع (بالتقريب لأن زمن استدعاء 
الدالة يحتسب أيضا). 


6. خاتمة 


بسيطة› سريعة التعلم» جد مفيدة» هذا ما يمكن قوله عن الفئة الجديدة Stopwatch‏ التي تعتبر واحدة من 
التحسينات العملية في نسخة إطار العمل 2.0 N۴1 ۴۳W)‏ و لا يجب تجاهلها لأنها أداة جيدة 
المبرمجين الجادين. 
بر تاك اا ار e a‏ لتا را ال ایر 
البرمجي . 

وعموما تدخل مرحلة تسريع الأداء في نطاق التحسينات على النسخة الأصلية حيث لا يمكن أن تقوم 
بتجريب جميع الإمكانيات و المقارنة بينها مع بداية تطوير النسخة الأولى لذلك عليك التركيز أولا على الهيكل 
وبعدها تتحول إلى التحديثات. 


vb ¥ arab 
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